home *** CD-ROM | disk | FTP | other *** search
/ Exame Informatica 139 / Exame Informatica 139.iso / Revista / Flash / Uniform Server / Disk Start.vbs next >
Encoding:
Text File  |  2005-07-11  |  1018 b   |  30 lines
  1. ' Name: Start MS-DOS File 
  2. ' Created By: The Uniform Server Development Team
  3. ' Edited Last By: Olajide Olaolorun (empirex)
  4. ' Comment: Re-Arranged everything to look nicely. 
  5. ' To Developers: Added the MySQL start option. 
  6.  
  7. Dim WSHShell, dir, fso, f1 
  8. Set fso = CreateObject("Scripting.FileSystemObject") 
  9. Set WSHShell = WScript.CreateObject("WScript.Shell") 
  10.  
  11. ' Uncoment next line to ask about virtual disk for server (useful for CD or USB stick distributions) 
  12. s=InputBox("Specify a Disk Drive for the Server to use... (one charter please)","Server Disk","W") 
  13.  
  14. If intDoIt = vbCancel Then 
  15.      WScript.Quit 
  16. End If 
  17. s=mid(s,1,1) 
  18.  
  19. t=MsgBox("Start the MySQL Database Server?", vbYesNo + vbQuestion, "Database Support") 
  20. If intDoIt = vbNo Then 
  21.     m="" 
  22. Else 
  23.     m=" mysql" 
  24. End If 
  25.  
  26. WSHShell.run "Server_Start.bat "&s&m,0,0 
  27. WScript.sleep(1000) 
  28.  
  29. ' --- If you do not want to open default browser at server start - Not needed, Commented
  30. 'WSHShell.run "diskw\home\admin\www\redirect.html"